home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 July: Mac OS SDK / Dev.CD Jul 99 SDK1.toast / Development Kits / Mac OS / Interfaces&Libraries / Universal / Interfaces / AIncludes / FixMath.a < prev    next >
Encoding:
Text File  |  1998-08-17  |  6.6 KB  |  286 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        FixMath.a
  3. ;
  4. ;    Contains:    Fixed Math Interfaces.
  5. ;
  6. ;    Version:    Technology:    Mac OS 8
  7. ;                Release:    Universal Interfaces 3.2
  8. ;
  9. ;    Copyright:    © 1985-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        For bug reports, consult the following page on
  12. ;                the World Wide Web:
  13. ;
  14. ;                    http://developer.apple.com/bugreporter/
  15. ;
  16. ;
  17.     IF &TYPE('__FIXMATH__') = 'UNDEFINED' THEN
  18. __FIXMATH__ SET 1
  19.  
  20.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  21.     include 'MacTypes.a'
  22.     ENDIF
  23.  
  24.  
  25.  
  26.  
  27. fixed1                            EQU        $00010000
  28. fract1                            EQU        $40000000
  29. positiveInfinity                EQU        $7FFFFFFF
  30. negativeInfinity                EQU        $80000000
  31. ; 
  32. ;    FixRatio, FixMul, and FixRound were previously in ToolUtils.h
  33. ;
  34.  
  35. ;
  36. ; pascal Fixed FixRatio(short numer, short denom)
  37. ;
  38.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  39.         _FixRatio:    OPWORD    $A869
  40.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  41.         IMPORT_CFM_FUNCTION FixRatio
  42.     ENDIF
  43.  
  44. ;
  45. ; pascal Fixed FixMul(Fixed a, Fixed b)
  46. ;
  47.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  48.         _FixMul:    OPWORD    $A868
  49.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  50.         IMPORT_CFM_FUNCTION FixMul
  51.     ENDIF
  52.  
  53. ;
  54. ; pascal short FixRound(Fixed x)
  55. ;
  56.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  57.         _FixRound:    OPWORD    $A86C
  58.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  59.         IMPORT_CFM_FUNCTION FixRound
  60.     ENDIF
  61.  
  62.  
  63. ;
  64. ; pascal Fract Fix2Frac(Fixed x)
  65. ;
  66.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  67.         _Fix2Frac:    OPWORD    $A841
  68.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  69.         IMPORT_CFM_FUNCTION Fix2Frac
  70.     ENDIF
  71.  
  72. ;
  73. ; pascal long Fix2Long(Fixed x)
  74. ;
  75.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  76.         _Fix2Long:    OPWORD    $A840
  77.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  78.         IMPORT_CFM_FUNCTION Fix2Long
  79.     ENDIF
  80.  
  81. ;
  82. ; pascal Fixed Long2Fix(long x)
  83. ;
  84.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  85.         _Long2Fix:    OPWORD    $A83F
  86.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  87.         IMPORT_CFM_FUNCTION Long2Fix
  88.     ENDIF
  89.  
  90. ;
  91. ; pascal Fixed Frac2Fix(Fract x)
  92. ;
  93.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  94.         _Frac2Fix:    OPWORD    $A842
  95.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  96.         IMPORT_CFM_FUNCTION Frac2Fix
  97.     ENDIF
  98.  
  99. ;
  100. ; pascal Fract FracMul(Fract x, Fract y)
  101. ;
  102.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  103.         _FracMul:    OPWORD    $A84A
  104.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  105.         IMPORT_CFM_FUNCTION FracMul
  106.     ENDIF
  107.  
  108. ;
  109. ; pascal Fixed FixDiv(Fixed x, Fixed y)
  110. ;
  111.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  112.         _FixDiv:    OPWORD    $A84D
  113.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  114.         IMPORT_CFM_FUNCTION FixDiv
  115.     ENDIF
  116.  
  117. ;
  118. ; pascal Fract FracDiv(Fract x, Fract y)
  119. ;
  120.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  121.         _FracDiv:    OPWORD    $A84B
  122.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  123.         IMPORT_CFM_FUNCTION FracDiv
  124.     ENDIF
  125.  
  126. ;
  127. ; pascal Fract FracSqrt(Fract x)
  128. ;
  129.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  130.         _FracSqrt:    OPWORD    $A849
  131.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  132.         IMPORT_CFM_FUNCTION FracSqrt
  133.     ENDIF
  134.  
  135. ;
  136. ; pascal Fract FracSin(Fixed x)
  137. ;
  138.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  139.         _FracSin:    OPWORD    $A848
  140.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  141.         IMPORT_CFM_FUNCTION FracSin
  142.     ENDIF
  143.  
  144. ;
  145. ; pascal Fract FracCos(Fixed x)
  146. ;
  147.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  148.         _FracCos:    OPWORD    $A847
  149.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  150.         IMPORT_CFM_FUNCTION FracCos
  151.     ENDIF
  152.  
  153. ;
  154. ; pascal Fixed FixATan2(long x, long y)
  155. ;
  156.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  157.         _FixATan2:    OPWORD    $A818
  158.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  159.         IMPORT_CFM_FUNCTION FixATan2
  160.     ENDIF
  161.  
  162. ; 
  163. ;    Frac2X, Fix2X, X2Fix, and X2Frac translate to and from
  164. ;    the floating point type "extended" (that's what the X is for).
  165. ;    On the original Mac this was 80-bits and the functions could be
  166. ;    accessed via A-Traps.  When the 68881 co-processor was added,
  167. ;    it used 96-bit floating point types, so the A-Traps could not 
  168. ;    be used.  When PowerPC was added, it used 64-bit floating point
  169. ;    types, so yet another prototype was added.
  170. ;
  171.  
  172. ;
  173. ; pascal extended Frac2X(Fract x)
  174. ;
  175.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  176.         _Frac2X:    OPWORD    $A845
  177.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  178.         IMPORT_CFM_FUNCTION Frac2X
  179.     ENDIF
  180.  
  181. ;
  182. ; pascal extended Fix2X(Fixed x)
  183. ;
  184.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  185.         _Fix2X:    OPWORD    $A843
  186.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  187.         IMPORT_CFM_FUNCTION Fix2X
  188.     ENDIF
  189.  
  190. ;
  191. ; pascal Fixed X2Fix(extended x)
  192. ;
  193.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  194.         _X2Fix:    OPWORD    $A844
  195.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  196.         IMPORT_CFM_FUNCTION X2Fix
  197.     ENDIF
  198.  
  199. ;
  200. ; pascal Fract X2Frac(extended x)
  201. ;
  202.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  203.         _X2Frac:    OPWORD    $A846
  204.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  205.         IMPORT_CFM_FUNCTION X2Frac
  206.     ENDIF
  207.  
  208. ;  QuickTime 3.0 makes these Wide routines available on other platforms
  209.     IF TARGET_CPU_PPC ++ ¬ TARGET_OS_MAC THEN
  210. ;
  211. ; extern short WideCompare(const wide *target, const wide *source)
  212. ;
  213.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  214.         IMPORT_CFM_FUNCTION WideCompare
  215.     ENDIF
  216.  
  217. ;
  218. ; extern WidePtr WideAdd(wide *target, const wide *source)
  219. ;
  220.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  221.         IMPORT_CFM_FUNCTION WideAdd
  222.     ENDIF
  223.  
  224. ;
  225. ; extern WidePtr WideSubtract(wide *target, const wide *source)
  226. ;
  227.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  228.         IMPORT_CFM_FUNCTION WideSubtract
  229.     ENDIF
  230.  
  231. ;
  232. ; extern WidePtr WideNegate(wide *target)
  233. ;
  234.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  235.         IMPORT_CFM_FUNCTION WideNegate
  236.     ENDIF
  237.  
  238. ;
  239. ; extern WidePtr WideShift(wide *target, long shift)
  240. ;
  241.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  242.         IMPORT_CFM_FUNCTION WideShift
  243.     ENDIF
  244.  
  245. ;
  246. ; extern unsigned long WideSquareRoot(const wide *source)
  247. ;
  248.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  249.         IMPORT_CFM_FUNCTION WideSquareRoot
  250.     ENDIF
  251.  
  252. ;
  253. ; extern WidePtr WideMultiply(long multiplicand, long multiplier, wide *target)
  254. ;
  255.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  256.         IMPORT_CFM_FUNCTION WideMultiply
  257.     ENDIF
  258.  
  259. ;  returns the quotient 
  260. ;
  261. ; extern long WideDivide(const wide *dividend, long divisor, long *remainder)
  262. ;
  263.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  264.         IMPORT_CFM_FUNCTION WideDivide
  265.     ENDIF
  266.  
  267. ;  quotient replaces dividend 
  268. ;
  269. ; extern WidePtr WideWideDivide(wide *dividend, long divisor, long *remainder)
  270. ;
  271.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  272.         IMPORT_CFM_FUNCTION WideWideDivide
  273.     ENDIF
  274.  
  275. ;
  276. ; extern WidePtr WideBitShift(wide *src, long shift)
  277. ;
  278.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  279.         IMPORT_CFM_FUNCTION WideBitShift
  280.     ENDIF
  281.  
  282.     ENDIF
  283.  
  284.     ENDIF ; __FIXMATH__ 
  285.  
  286.